APPENDIX A 



CREATE procedure gs_calculate_pacing_factor as 

— determine pacing factor to cap out the account in X days (currently 12) 

— determine the number or stats days remaining 

select l.listing_id, 1.0000 pacingfactor, datediff(dd, b.transaction_date, dateadd(dd,- 
5,li.NextBillDate)) daysincycle, b.transaction_cap, b.transactioncap - (b.previous_revenue + 
allowed_revenue) capremaining, datediff(dd,min(c.transaction_date), max(c.transactiondate)) 
days total, sum((c.transaction count+c.transaction_no_count)*c.transaction_rate) 
actual_revenue_total, 

siim((c.1ransaction_count+c-transaction_no_count)*c.transaction_rate)/(lH-datedif^^ 

iondate), max(c.transaction_date))) avg_daily_revenue, 

sum(c.transaction_count+c.transaction no_count) transactioncount_total, 

sum(c.transaction_count+c.transaction_no 

max(c.transactiondate))) transaction count day into #pf 

from gsjistings 1 (NOLOCK), CityData..LineItem li (NOLOCK), 

CityData..LineItemBillingTransaction b (NOLOCK), CityData..LineItemBillingTransactionDetail c 
(NOLOCK) 

where b.Lineltemld = li.Lineltemld and b.transaction date = (select max(transaction_date) from 

gs_transaction_dates) 

and li.comp__id = l.comp id 

and li.Productld = 347 

and H.LineltemStatusCode = 'ACTIVE 1 

and b.transaction_cap > 0 

and li.NextBillDate is not null 

and c.Lineltemld = b.Lineltemld 

and c.transaction date >= dateadd(dd,-20,(select max(transaction_date) from gs_transaction_dates)) 
group by l.listing_id,b.transaction_cap, datediff(dd, b.transaction_date, dateadd(dd,- 
5,li.NextBillDate)), b.transaction_cap - (b.previous revenue + allowed revenue) 

create unique index pfjunkindex on #pf (listing_id) 

— if there are more than 12 days then calculate it for 12 days 

update #pf set days_in_cycle =12 where days_in_cycle <1 or days_in_cycle > 12 
update #pf set cap_remaining = 0.0 where cap_remaining < 1 .0 

— calculate the pacing factor based on the cap remaining 

update #pf set pacing_factor = cap_remaining / (days_in_cycle *(avg_daily_revenue+0.01)) from 
#pf where cap_remaining / (days_in_cycle *(avg_daily_revenue+0.01)) < 1.0 

— update the pacing factor for ads not in the current pacing set 

update gs ads set transaction ^pacing factor = 1 .0, transaction_sync = f Y f where 
transaction _j>acing_factor < 1 .0 and ad_id not in ( 

select a.ad_id from gs_ads a(NOLOCK), gs_online o (NOLOCK), #pf p (NOLOCK) where 
o.listingid = p.listingid 

and o.online id = a.online id and a.ad id = gs_ads.ad id) 
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— update the pacing factor for the current set of ads 

update gs ads set transaction_pacing_factor = p.pacing_factor, transaction sync = 'Y 1 

from #pf p(NOLOCK), gs_online o (NOLOCK) where o.online_id = gs_ads.online id 

and o.listing_id = p.listing id and (abs(gs_ads.transaction_pacing factor - p.pacingfactor) > 0.02) 



CREATE procedure gs_calculate_yield as 
/** 

calculate yield on a weighted 40 day basis and a 5 day basis, blend the rates on a weighting and 
determine transaction yield 

the days for the yield weighting is arbiturary 

**/ 

declare @date datetime 

select @date = (select max(Date) from Customers tats.. AdUniqueUserFact) 

— get stats data 

select i.ad_id, sum(i.ImpressionCount) impressions, 

sum(case when i.Date >= dateadd(dd,-7,@date) then i.ImpressionCount else 0 end) 

fast_impressions, 10000000 clicks, 10000000 fast_clicks, 100.0000 transaction_yield into #ads from 

Customers tats.. AdlmpressionFact i (NOLOCK) 

where i.Date > dateadd(dd,-40,@date) and i.Date >= '6/19/2003' 

group by i.ad id 

create unique index junkads on #ads (ad id) 
update #ads set clicks = 0, fast_clicks =0 

select u.ad_id, sum(u.UniqueUser) clicks, sum(case when u.Date >= dateadd(dd,-7,@date) then 
u.UniqueUser else 0 end) fast_clicks into #clicks from Customers tats.. AdUniqueUserFact u 
where u.Date > dateadd(dd,-40,@date) and u.Date >= '6/1 9/2003' 
group by u.adid 

update #ads set clicks = c.clicks, fast_clicks = c.fast clicks from #clicks c (NOLOCK) where 
c.ad_id = #ads.ad_id 

— calculate the wieghted yield 

update #ads set transaction_yield = (((clicks+l)*1.0)/((impressions+40)*1.0)*0.4 + 
((fast_clicks+l)* 1 .0)/((fast_impressions+40)* 1 .0)*0.60)* 1 00.0 

— update the ads with the update tield 

W02-LA: 1BDM1 \70659327.4 -23 - 02CA- 1 08259 

3/10/2004 



update gs_ads set transaction_yield = a.transaction_yield, transactionsync = f Y' from #ads a where 
a.ad_id = gs ads.ad id 

and abs(a.transaction_yield - gs _ads.transaction_yield) >= 0. 1 
and gs_ads.ProductComponentId in (31 1,312,313,314) 

— plant new ads in a good value and let the stats bring the ads down or push the ads up higher 

update gs_ads set transaction_yield = 2.3, transaction sync = f Y f where transaction yield = 100.0 
and ProductComponentld in (311,31 2,3 1 3,3 1 4) 

Search Engine 

Ad Globs 

package Guide: :Model::AdGlobs; 

use strict; 
use base qw( 

Control: : Controller 

Guide: :Control: : SuperSearch: :Base 

Control : : Search: : Any Where 

); 

use Guide: :Model::PageTypes; 
use Guide: :Model::SiteTargets; 
use Guide: :Model::AdLimits; 
use Guide: :Model::FeaturedAd; 
use Control: : Search: : Any Where; 
use Search: :Model::Query; 

## Distance constant — used for calculations 
use constant DISTANCE_CONSTANT => 1; 

## Ads to pull from slicware 
use constant AD LIMIT => 30; 

sub new { 
my Sproto = shift; 
my Sclass = ref($proto) || Sproto; 
my %args = @_; 

my $self = bless (\%args, Sclass); 
Sself; 

} 

sub get data { 
my Sself = shift; 
my Sparams = shift; 

return undef unless (ref($params)); 
my $ad_data; 
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my $search_params = { 
cs_search => 'pfpads', 
rpp => AD LEMITO, 

}; 

my $rkw = {}; # Restrictive Keywords 

## let's go get some data about what I'm looking at 
## Site target ids 

my Spage type id = &Guide::Model::PageTypes::name__to_id($params->{page_type}); 
my ($site_target_id, Smindist, $max_dist, $sales_cats) = 
&Guide: :Model: :SiteTargets: :name_to_id( { 

page_type_id => $page_type_id, 

page_type_data => $params->{page_type_data}, 

}); 

unless ($site_target_id) { 
warn "No site target found! Page type: " . $params->{page_type} . 

" Page type data: " . $params->{page_type_data} . 11 — no ads served"; 
return undef; 

} 

$rkw->{'stid_' . $site_target_id} = 1; 
$addata->{sitetarget_id} = $site_target_id; 
$ad_data->{sales_cats} = Ssalescats; 
my Smultiplier = $params->{market_multiplier} || 1; 

## Market / Point radius searching 

if ($params->{lat) and $params->{long}) { 

$search_params->{lat} = $params->{lat}; 

$search_params->{long} = $params->{long}; 

$search_params-> {miles} = ($max_dist * Smultiplier); 

$ad_data->{metro_mode} = 0; 

} 

else { 

$rkw-> {'market_' . $params->{market_id}} = 1; 
$ad_data->{metro_mode} = 1; 
$search_params-> {sorted} = 'cpcctr-desc'; 

} 

$self->log(TV[ode: ' ); . 

if ($ad_data->{metro_mode} = 1) { 

Sself->logCMetro'); 
} else { $self->log( , Coverage Area 1 ); } 
unless ($addata->{metro_mode}) { 

$self->log( f Sales Categories: ' . Ssalescats); 

$self->log('Center point lat: ' . $search_params->{lat} . ' Long: 1 . $search_params->{long}); 
$self->log(TV[arket Multipler: ' . Smultiplier ); 
$self->log('Sales Category max dist: 1 . Smaxdist ); 
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$self->log('Max search dist: 1 . $search_params-> {miles}); 
$self->log("Page type: " . $params->{page_type} . " ID: " . $page_type_id); 
$self->log("Page type data: " . $params->{page_type_data}); 

} 

$self->log(" Begin Ad Data "); 

## Set up the limits 
$ad_data->{limits} 
&Guide: :Model: : AdLimits: :ad_restriction_by__page_type($page_type_id); 

# Let's get to rock'n — Set up new searcher 
my Ssearch = new Search: :Model::QueryO; 
my $total_ads; 

foreach my $ad_type_id (keys %{$ad_data-> {limits}}) { 
$total_ads += $ad_data-> {limits} ->{$ad_type_id}; 

} 

## Ahh darn rules. We have to at least attempt to show tier 1 ads according to 
## the same parameters we show everyone else, 
if ($ad_data->{limits}->{l}) { 

$self->log("Begin search for tier 1 ads"); 

my ($lrkw, $lsearch_params); 

$ad__data->{l} = []; 

%{$lrkw} = %{$rkw}; %{$lsearch_params} = %{$search_params}; 
$lrkw-> {'ad_type__l '} = 1 ; 

$lsearch_params-> {sorted} = 'weight,bus_name'; 
$lsearch_params->{rpp} =4; 

## Push RKW's into a string 

$lsearch_params->{rkw} = join ('+', keys %{$lrkw}); 

my Sresults = $search->search($lsearch_params); 

foreach my Sdatajiash (@ {$results-> {list} ->[0]-> {item}}) { 

my $featured_ad = new Guide: :Model::FeaturedAd ( $data_hash ); 

$featured_ad«>metro_mode($ad_data-> {metromode} ); 

$self->log("Found tier 1 ad id:" . $featured_ad->ad_id); 

## Note, we're not checking the limits here because we've limited the result set to 4 items 
above 

push @ {$ad__data-> { 1 } } , $featured_ad; 

} 

unless (scalar @ {$results-> {list} ->[0]-> {item}}) { $self->log("No tier 1 ads found"); } 
$ad_data->{limits}->{l} = scalar @{$ad_data->{l}} if (scalar @{$results->{list}->[0]- 
>{item}} 

and scalar @ {$ad_data-> { 1 } } > $ad_data-> {limits} -> { 1 } ); 
$self->log("End search for tier 1 ads"); 

} 

## We're on a two ad system now, and if it's for tier 1, we'll fill it in later 
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$rkw-> { , ad_type_2'} = 1 ; 
## Push RKW's into a string 

$search_params->{rkw} = join ("+', keys %{$rkw}); 
my $results = $search->search( $search_params); 

$self->log( ft Search Params: \n" . Dumper($search_params)); use Data::Dumper; 
$self->log("Begin search for PFP ads (tier 2) M ); 

$self->log(sprintf('%5s %30s %5s %8s %8s %6s %5s\ W/nameVdist', 'cpcctrVPacev', 'Pacef, 
•rank 1 )); 

my (@all_ads, $dedup); 
## Retrieve 

foreach my $data_hash (@{$results->{list}->[0]->{item}}) { 
my $featured_ad = new Guide: :Model::FeaturedAd ( Sdata hash ); 
$featured_ad->metro_mode($ad_data-> {metro_mode} ); 

## Pacing Factor removal 
my $rand = int(rand(1000)); 

if ($featured_ad->pacing = 1000 or $featured_ad->pacing = 1 or $featured_ad->pacing > 
$rand) { 

## Perform sorting calc here 

$featured_ad->rank_number($featured_ad->cpcctr / ($featured_ad->dist + 

DISTANCE_CONSTANT0)) 

unless (Sad _data->{metro_mode}); 

## De-dup code 

my $key = join ('I' , map {$featured_ad->get_data->{urls}->{$_}->{url_text} 
if exists $featured_ad->get_data->{urls} ->{$_} 
and exists $featured_ad->get_data->{urls}->{$_}->{url_text} 
} (qw(business_name tagline))); 
if ($dedup->{$keyj) { 
if ($dedup->{$key}->[l] < $featured_ad->rank_number) { 
$self->log(sprintf('%5d %30s % 2.2f % 4.3f % 4.3f % 4.3f % 5.0f replacing current', 

$featured_ad->ad_id, substr($featured_ad->get_data-> {urls} -> {business_name} - 
>{url_text}, 0, 30), 

$featured_ad->dist, $featured_ad->cpcctr/1000, $featured_ad->pacing/1000, 
$rand/1000, $featured_ad->rank_number)); 
splice @all_ads, $dedup->{$key}->[0], 1; 

$dedup->{$key} = [scalar @all_ads, $featured_ad->rank_number]; 
push @all_ads, $featured_ad; 

} 

else { 

$self->log(sprintf( ,0 /o5d %30s % 2.2f % 4.3f % 4.3f % 43f % 5.0f - duplicate, lower 
value 1 , 

$featured_ad->ad_id, substr($featured_ad->get_data-> {urls} -> {business_name} - 
>{url_text},0, 30), 

$featured_ad->dist, $featured_ad->cpcctr/l 000, $featured_ad->pacing/l 000, 
$rand/1000, 

Sfeatured ad->rank_number)); 
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} 

} 

else { 

$dedup->{$key} = [scalar @all_ads, $featured_ad->rank_number]; 
$self->log(sprintf('%5d %30s % 2.2f % 4.3f % 4.3f % 4.3f % 5.0f , 

$featured_ad->ad_id, substr($featured_ad->get_data-> {urls} -> {business__name} - 
>{url_text},0, 30), 

$featured_ad->dist, $featured_ad->cpcctr/l 000, $featured_ad->pacing/l 000, 
$rand/1000, $feaUired_ad->rank_number)); 
push @all_ads, $featured_ad; 

} 

} 

else { 

$self->log(sprintf('%5d %30s % 2.2f % 3.3f % 4.3f % 4.3f % 5.0f ~ dropped', 

$featured_ad->ad_id, substr($featured_ad->get_data-> {urls} -> {business_name} - 
>{url_text},0, 30), 

$featured_ad->dist, $featured_ad->cpcctr/1000, $featured_ad->pacing/1000, 
$rand/l 000, $featured_ad->rank_number)); 

} 

} 

## Sort — no need in metro, it's all good 
unless ($ad_data->{metro_mode}) { 
@all_ads = sort {$b->rank_number <=> $ a->rank_number } @all_ads; 

} 

$self->log( f Resorted values '); 

foreach my $featured_ad (@all_ads) { 

$self->log(sprintfC%5d %30s % 2.2f % 4.3f % 6.1f %6.0f, 

$featured_ad->ad_id, substr($featured_ad->get_data-> {urls} -> {business_name} - 
>{url_text},0, 30), 

$featured_ad->dist, $featuredad->cpcctr/l 000, $ featured _ad->pacing/l 000, 
$featured_ad->rank_number)); 
} 

foreach my $ad_type_Jd (keys %{$ad_data-> {limits}}) { 
## Create the place where I stuff data 

$ad_data->{$ad_type_id} = [] unless ($ad_data->{$ad_type_id}); 

while (scalar @{$ad_data->{$ad_type_id}} < $ad_data->{limits}->{$adjype_id} 
and scalar @all_ads) { 
push @{$ad_data->{$ad_type_id}}, shift ©alidads; 

} 

## Ranking, and recalc of urls, final prep work 
for (my $i = 0; $i < scalar @{$ad_data->{$ad_type_id}}; $i++) { 
$ad_data-> {$ad_type_id} ->[$i]->site_target_id($site_target_id); 

W02-LA: 1 BDM 1 \70659327.4 -28- 02CA-1 08259 

3/10/2004 



$ad_data->{$ad_type_id}->[$i]->total_ads(scalar@{$ad_data->{$ad_type_id}}); 
$ad_data-> {$ad_type_id} ->[$i] ->rank($i+ 1 ); 
$ad_data->{$ad_type_id}->[$i]->ad_type_id($ad_type_id); 
$ad_data-> {$ad_type_id} ->[$i] ->recalc_urls; 

splice @{$ad_data->{$ad_type_id}}, $i, 1, $ad_data->{$ad_type_id}->[$i]->get_data; 

} 

delete $rkw->{'ad_type_* . $ad_type_id} ; 

} 

$self->log(' — End ad data — '); 
return $ad_data; 

} 

sub log { 
my $self = shift; 
my Slog = shift; 

$self->{_log} = •[■ . localtime (time) . '] ' . Slog . "\n" if (Slog); 
return $self-> {_log} ; 

} 

i; 

Featured Ad 

package Guide: :Model::FeaturedAd; 

use strict; 

use Util::DBConn; 

use CSConf qw($GUIDE_DB SCSROOT); 
use Guide: :Model::LinkNames; 
use BerkeleyDB; 

use constant MAP_LINK_TYPE_ID => 'map'; 
use constant EMAILLINKTYPEED => 'email 1 ; 
use constant PROFILELINKTYPEID => 'profile'; 



BEGIN { 
no strict f refs f ; 
my @local_methods = qw( 
rank 

site_target_id 

clusterid 

weight 

dist 

pacing 

metromode 

adtypeid 

ad_id 
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total_ads 
cpcctr 
pacing 
rank_number 

); 

map { my Smethod = $_; 
* {Smethod} = sub { 

my Sself = shift; 
my $data = shift; 

$self->{$method} = $data if Sdata; 
$self-> {Smethod}; 
} 

unless defined &{$method}; 
} @local_methods; 

} 

sub new { 
my Sclass = shift; 
my Sparams = shift; 

return undef unless (ref($params) and $params->{adid}); 
bless Sparams, Sclass; 
$params->process_slicware; 
return Sparams; 

> 

sub process_slicware { 
my Sself = shift; 

my Sobj = {}; 

my @text_data_format = qw(entity_id address_line_l city state zip phone image link 
mapis_displayed 

email_address); 

my @multi_valued fields = qw(ad_bullet_l ad_bullet_2 ad _bullet_3 website link reservation); 

my Slinktypeids = { 
cs_offers => 18, 
respondrfq => 19, 
ad_bullet_l => 25, 
ad_bullet_2 =>26, 
ad_bullet_3 =>27, 
businessname => 28, 
tagline => 29, 
website_link => 30, 
reservation => 3 1 , 

}; 

$obj->{ad_id} = $self->{ad_id}; 

my @text_data = split $self->{textdata}); 

map {$obj->{$_} = shift @text__data} @text_data_format; 
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map { 

my ($url_text, $is_linkable) = (shift @text_data, shift @text_data); 
if ($url_text) { 
$obj->{urls} ->{$_} = { 
url_text => $url_text, 

}; " • 

$obj->{urls}->{$_}->{_link_type_id} = $link_type_ids->{$_} if ($is_linkable); 

} 

} @multi_valued_fields; 

## Handle 'special 1 fields — fields that have been seperated from the text block in slicware 
my $slicware_to_urls ={ 

ptbtl => 'tagline', 

bus name => r business_name\ 

}; 

foreach my $slicware_key (keys %{$slicware_to_urls}) { 
my $reg_name = $slicware_to_urls->{$slicware_key}; 
my @data = split ('\|', $self->{$slicware_key}); 
my ($url_text, $is_linkable) = (shift @data, shift @data); 
if ($url_text) { 
$obj->{urls}->{$reg_name} = { 
url_text => Surl text, 

}; 

$obj-> {urls} -> {$reg_name} -> {_link_type_id} = $link_type_ids-> {$reg_name} 
(Sisjinkable); 

} 

} 

## Handle special cases 

if ($self-> {latitude} and $self-> {longitude} and $obj->{map_is_displayed} eq 'y') { 
$obj->{urls}->{'map'} = { 
url text => 'Map', 

_link_type_id => MAP_LINK_TYPE_ID 

}; 



if ($obj->{entity_id} and $obj->{email_address}) { 
$obj->{urls}->{'email'} = { 
url_text => 'Email', 
link type id => EMAIL LINK TYPE ID, 

}; 



$obj->{urls}->{'profile'} = { 

url_text => 'Overview', 

_link_type_id => PROFILE LINK TYPE ID, 
} if ($obj->{entity_id}); 

## End special cases 
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$self->recalc_urls ($obj); 
$self->{_data_obj} = $obj; 

} 

sub get_data { 
my $self = shift; 

return $self-> {_data_obj } if ($self-> {_data_obj } ); 
return $self->_get_data; 

} 

sub _get_data { 
my Sself = shift; 

my $dbh = Util::DBConn->new ($GUIDE_DB); 
warn "Retrieving data from database"; 

my $main_sql = "SELECT address line_l, entity_id, city, state, zip, phone, 

decode(image_ak_url,NULL, image_external_url, image ak url) image link, 
email_address 

FROM featured_ads 

WHERE featured_ad_id = ? 

AND ( (image_internal_url IS NOT NULL and image_external_url IS NOT NULL) 
OR image_internal_url IS NULL)"; 
my $links_sql = "SELECT link_type_id, url text, url 
FROM featured_ad_urls 
WHERE featured_ad_id = ? 
AND is_displayed = y"; 

my $main_sth = $dbh->prepare($main_sql); 
my $links_sth = $dbh->prepare($links_sql); 

$main_sth->execute($self-> {adid} ); 

my $data_hash = $main_sth->fetchrow_hashref( T NAME_lc , ) || {}; 
my Sobj = { 

% {Sself}, 

%{$data_hash} 

}; 

$links_sth->execute($self-> {ad_id} ); 

while (my Sdata row = $links_sth->fetchrow_hashref(TSrAMEJc 1 )) { 
# We need to rewrite the url at this point to redirect though the redirector 
if ($data_row->{url}) { 
$data_row-> {_link_type_id} = $data row-> {link type id} ; 

} 

$obj-> {urls} -> {&Guide: :Model: :LinkNames: :id_to_name($data_row-> {linktypeid} )} 
$data_row; 

delete Sdata row->{link_type_id}; 
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} 

## Handle special cases 
if ($obj-> {latitude} and $obj-> {longitude}) { 
$obj->{urls}->{'map'} = { 
url_text => TVIap', 
linktypeid => MAP LINK TYPE ID 

}; 

} 

if ($obj->{entity_id} and $obj->{email_address}) { 
$obj->{urls}->{*email'} = { 
url_text => 'Email', 

_link_type_id => EMAIL_LINK_TYPE_ID, 

>; 

} 

$obj->{urls}->{'profile'} = { 

url_text => 'Overview', 

_link_type_id => PROFILE LINK TYPE ED, 

}; 

## End special cases 

$obj->{ad_id} = $self->{ad_id}; 
$self->{_data_obj} =$obj; 
$self->recalc_urls($obj); 
return $obj; 

} 

sub get_url { 
my $self = shift; 

return undef unless ($self->{ad_id} and $self->{link_type_id}); 
my $dbh = Util::DBConn->new ($GUIDE_DB); 

## Handle special cases 

if( $self->{link_type_id} eq EMAIL LINK TYPE ID 
or $self->{link_type_id} eq MAP LINK TYPE ID 
or $self->{link_type_id} eq PROFILE LINK TYPE ID) { 
my $link_sql = "SELECT latitude, longitude, entityjd 
FROM featured_ads 
WHERE featured_ad_id = ?"; 
my Slinksth = $dbh->prepare_cached($link_sql); 
$link_sth->execute( $self->{ad_id} ); 
my $data_row = $link_sth->fetchrow_hashref( , NAME Jc 1 ); 
$link_sth->finish; 

if($self->{link_type_id} eq EMAIL_LINK_TYPE_ED) { 
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return 7email?id- . $data_row->{entity_id}; 

} 

if($self->{link_type_id} eq MAP LINK TYPE ED) { 
return 7map?mode=geo&map_lat=" . $data_row-> {latitude} . , &map_lon= f . $data_row- 

> {longitude}; 

} 

if($self->{link_type_id} eq PROFILE_LINK_TYPE_ID) { 
return '/profile/ 1 . $data_row->{entity_id}; 

} 

} 

my $link_sql = "SELECT url 

FROM featured ad urls 
WHERE featured_ad_id = ? 
AND link_type_id = ?"; 

my $link_sth = $dbh->prepare($link_sql); 
$link_sth->execute($self->{ad_id}, $self->{link_type_id}); 
my ($url) = $link_sth->fetchrow; 
$link_sth->finish; 
return $url; 

> 

sub recalcurls { 
my $self = shift; 

my Sdata obj = shift || $self->getdata; 
foreach my $key (keys %{$data_obj->{urls}}) { 
my $data_row = $data_obj->{urls}->{$key}; 

delete $data_row->{url} and next unless ($data_row->{_link_type_id}); 
$data_row->{url} = 7redirect/?aid=' . $self->{adjd} . 'ftltid^ . $data_row- 

> {linkjypeid} ; 

$data_row->{url} = '&eid=' . $data__obj->{entity_id} if $data_obj->{entity_id}; 
$data_row->{url} = 'festid^ 1 . $self->site_target_id if $self->site_target_id; 
$data_row->{url} .= ^clid^' . $self->cluster_id if $self->cluster_id; 
$data_row->{url} .= '&rank=' . $self->rank if ($self->rank); 

$data_row->{url} = '&dist=' . $self->dist if ($self->dist and not $self->metro_mode); 
$data_jow->{url} = '&3tid=* . $self->ad_type_id if ($self->ad_type_id); 
$data_row->{url} = , &total_ads= f . $self->total_ads if ($self->total_ads); 

} 

return Sdata obj; 

} 



=pod 

# perhaps useful later 
sub get url { 
my Sself = shift; 

return undef unless ($self->{ad_id} and $self->{link_type_id}); 
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my $bdb = BerkeleyDB::Hash->new( 

'-Filename 1 => $bdb_filename, 
'-Flags 1 => 'DB RDONLY* 
) 

or warn "FAILURE: cannot open $bdb_filename: $! $BerkeleyDB::Error" and return undef; 
my $url; 

$bdb->db_get($self->{adjd} . 7 - $self->{link_type_id}, $url); 
return $url; 

} 

=cut 
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